CD-ROM Today - The Disc! 5/CD-ROM Today - The Disc (Issue 5)(November 1994).ISO/mac/DHA demo/Don Norman Folder/The Library/The Library.rsrc/CSTR_21110_CopyCSTR

Text File | 1994-09-21 | 544b | 15 lines

put mySx("C") into temp
if (word 8 of temp ¡ "") then
get (char 1 of word 6 of temp = "c")
selectiontoclip word 8 of temp,it,word 2 of temp, word 4 of temp
if the result = "" then
if ((not it) and (the short name of (word 6 to 8 of temp) = "styled")) then
appendtoclip " ("&ssn()&", "&tStr("LibMsg",5)&&fld "pageno"&") ", "palatino", "12", "plain"
end if
end if
if it then
select char (word 2 of temp) to (word 4 of temp) of cd fld (word 8 of temp)
else
select char (word 2 of temp) to (word 4 of temp) of bg fld (word 8 of temp)
end if
end if